Дан текст. Определить все слова оканчивающиеся на «ая» — Pascal(Паскаль)

Program string_18;

uses crt;

var
  a, b: string;
  s, ss, i, l, l2: longint;

label m;

begin
  clrscr;
  write('введите предложение: ');
  readln(a);
  l := length(a);
m:
  for i := 1 to l do
    if (a[i] = ' ') and (a[i + 1] = ' ') then
    begin
      delete(a, i, 1);
      l := l - 1;
      goto m;
    end;
  if a[l] <> ' ' then
  begin
    inc(l);
    a[l] := ' ';
  end;
  for i := 1 to l do
    if a[i] = ' ' then
    begin
      l2 := length(b);
      if (b[l2] = 'я') and (b[l2 - 1] = 'а') then
        writeln(b)
      else
        inc(s);
      b := '';
      inc(ss);
    end
    else
      b := b + a[i];
  if s = ss then
    write('таких слов не обнаружено!');
  readln;

end.